home *** CD-ROM | disk | FTP | other *** search
/ NBC Slam Jams! / NBC Slam Jams!.iso / xtras / media_la / effector.cst / 00030_Script_Pendulum Rotate < prev    next >
Text File  |  1997-09-30  |  2KB  |  47 lines
  1. -- Pendulum Rotate
  2.  
  3.  
  4.  
  5.  
  6. Property pSpeed, pInterp, pLeftLimit, pRightLimit, pEaseIn, pEaseOut
  7.  
  8. on getPropertyDescriptionList
  9.   --if not alphamaniacCheck(the currentSpriteNum) then exit
  10.   
  11.   set pList=[:]
  12.   addProp pList,#pSpeed,[format:#integer,comment:"Number of Frames", Default:6, range:[min:1,max:100]]
  13.   addProp pList,#pLeftLimit,[format:#integer,comment:"Start(degrees):", Default:-90, range:[min:-360,max:360]]
  14.   addProp pList,#pRightLimit,[format:#integer,comment:"End(degrees):", Default:90, range:[min:-360,max:360]]
  15.   addProp pList,#pEaseIn,[format:#integer,comment:"Ease In Frames:", Default:0, range:[min:0,max:20]]
  16.   addProp pList,#pEaseOut,[format:#integer,comment:"Ease Out Frames:", Default:0, range:[min:0,max:20]]
  17.   addProp pList,#pInterp,[format:#symbol,¼
  18.                                comment:"Interpolation:",¼
  19.                                Default:#On,range:[#Off,#On,#Paused]]
  20.   
  21.   return pList
  22. end
  23.  
  24. on beginSprite me
  25.   set s=the spriteNum of me
  26.   if not alphaManiac(s) then exit
  27.   
  28.   set pInterp=interpolation(pInterp)
  29.   rotate(sprite s, [animMode:#pendulum, numFrames:pSpeed, startDegrees:pLeftLimit, endDegrees:pRightLimit, easeIn:pEaseIn, easeOut:pEaseOut, interpolation:pInterp])
  30. end
  31.  
  32.  
  33.  
  34.  
  35. on getBehaviorDescription me
  36.   set msg= "Pendulum Rotation with Ease In and Out"
  37.   put return & return after msg
  38.   put "Parameters:" & return & "-----------" & return  after msg
  39.   put "*  NumFrames:  How fast does it turn?" & return after msg
  40.   put "*  Start degrees" & return after msg
  41.   put "*  End Degrees" & return after msg
  42.   put "*  Ease In Frames" & return after msg
  43.   put "*  Ease Out Frames" & return after msg
  44.   put "*   Interpolation:   On,Off,or While Paused" after msg
  45.   put return & "-----------" & return & return  & ">>>" && amTip()  after msg
  46.   return msg
  47. end